home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / ab20 / datacomm / vltphone.lzh / bix.vlt < prev    next >
Encoding:
Text File  |  1990-08-08  |  1.4 KB  |  49 lines
  1. /* Bix logger */
  2.  
  3. address vlt
  4. call openport(bixport)
  5. "trap add autodeactivate install 'fier' [rx (address BIXPORT TI)]"
  6. "trap add 11 instal 'in:' [rx (address BIXPORT BI)]"
  7. "trap add 12 install 'name:' [rx (address BIXPORT BI)]"
  8. "trap add 13 autodeactivate install 'NO CARRIER' [rx (address BIXPORT DX)]"
  9. "trap add 14 autodeactivate install 'me?' [rx (address BIXPORT LI)]"
  10. "trap add 15 autodeactivate install 'ord:' [rx (address BIXPORT PW)]"
  11. "trap add 16 autodeactivate install 'tymnet: call cleared by request' [rx (address BIXPORT CC)]"
  12.  
  13. call delay 150
  14. send ""
  15. do dummy1 = 1
  16.     do dummy2 = 1
  17.         token = getpkt(bixport)
  18.         if token = '0000 0000'x then leave
  19.         msg = getarg(token)
  20.         call reply(token)
  21.         select
  22.             when msg = ti then send 'a'
  23.             when msg = bi then send 'xxbixyyy'
  24.             when msg = li then send 'elian'
  25.             when msg = CC then do
  26.                 message '{BIX Cleared the call!}'
  27.                 leave dummy1
  28.                 end
  29.             when msg = pw then do
  30.                 send 'xxxxxxxxxx'
  31.                 leave dummy1
  32.                 end
  33.             when msg = dx then message '{Tymnet hung up!}'
  34.             end
  35.         end
  36.     call waitpkt(bixport)
  37. end
  38. call closeport(bixport)
  39. "trap remove {11}"
  40. "trap remove {12}"
  41. "trap remove {13}"
  42. "trap remove {14}"
  43. "trap remove {15}"
  44. "trap remove {16}"
  45.  
  46. exit 0
  47.  
  48.  
  49.